Sub muestra_While()
    Dim a As Integer
    a = 5
    While a > 0
        Debug.Print a
        a = a - 1
    Wend
End Sub
